Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE20/TIPTRIX/LISTING4.PAS

Pascal/Delphi Source File | 1997-03-17 | 496 b | 21 lines

var
  aOpenList: TList;
  j: Integer;
begin
  aOpenList:=TList.Create;
  try
    with Session do for i:= 0 to DatabaseCount - 1 do begin
      for j:=0 to Databases[i].DataSetCount-1 do
        if DataBases[i].DataSet[i].Active then
          aOpenList.Add(Pointer(DataBases[i].DataSet[i]));
      Databases[I].close;
      DropConnections;
    end;
    ....
    for j:=0 to aOpenList.Count-1 do
      TDbDataSet(aOpenList[j]).Open;
  finally
    aOpenList.Free;
  end;
end;